Apple Reference & Presen…tion Library 4 (Reseller)/Apple Ref. & Pres. Lib.v4.0.iso/6-Apple⁄DEC Alliance/Solutions & Networking Guide/Macintosh Networking Guide/Macintosh Networking Guide/stack_-1.xml

Extensible Markup Language | 1990-04-17 | 4KB | 16 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
    <name>in</name>
    <id>-1</id>
    <cardCount>28</cardCount>
    <cardID>6353</cardID>
    <listID>4562</listID>
    <cantModify><false /></cantModify>
    <cantDelete><false /></cantDelete>
    <cantAbort><false /></cantAbort>
    <cardSize>
        <width>512</width>
        <height>342</height>
    </cardSize>
    <script>••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••--≥--≥--≥--≥                © 1990, Apple Computer, Inc.--≥--≥                 Macintosh Networking Guide--≥            Interface for connectivity solutions.--≥                          4/12/90--≥--∆                        J.W. Swartz--∆                   TBD Consulting Group--∆                      [phone]--∆--∆                based on the seminal work of;--•--•         Jonathan Gibson    and           Ted Tripp--•           Jennie Gale            First Ammendment Computing--•         Form & Function                 408 458-5293--•          415*664-4010--•--∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆∆--∆--∆--∆--∆on domenu menu                       --// Added by Medior, Inc. 4/16/90global RPStackNameif menu is in "Home,Quit HyperCard" and RPStackName is not empty thenset cursor to watchput RPStackName into shortnamerepeat until offset(":",shortname) = 0delete char 1 to offset(":",shortname) of shortnameend repeatdelete last char of shortnameanswer "This will return to "&shortname&"." with "Cancel" or "OK"if it is "Cancel" then exit domenuset cursor to watchlock screengo RPStackNameunlock screen with dissolveexit domenuelse pass doMenuend domenuon openstackGlobal ButtonSND,ClickSND,place,startFlag,defaultset lockscreen to trueput "MouseClick 1" into ButtonSNDput "DigiClick" into ClickSNDput "Lobby" into placeput "Yes" into startFlagput "Info Management" into defaulthide messagehide menuBartitleBar hideput the long time into newTimeconvert newTime to secondsput cd fld "Old Time" of cd lobby into oldTimeput newTime into cd fld "New time" of cd lobby--∆ If longer than 9 hours, warn about B&Wif newTime > (oldTime + 32400) thenput true into tidyUpNowif the loc of card window is not "0,0" thenanswer "Make sure your monitor is set to B&W."end ifput newTime into cd fld "Old Time" of cd lobbyelseput newTime into cd fld "Old Time" of cd lobbyend ifchangeCurs 69 --∆ change cursor to targetunlock screen with dissolveend openstackon closeStackget the freesize of this stackif it > 100000 then doMenu "Compact Stack"titleBar showend closeStackon startupGlobal ButtonSND,ClickSND,placegetHomeInfopass startUp -- to a startUp XCMD, if present--• for opening sequence, JONend startupfunction SelectionAndHiliter--∆ To get the number of a line clicked in a field and then highlight--∆ the selected line, needs a button named the same as the field--∆ name with "hiliter" appended.--∆ First, check if the field is a scrolling fieldget the style of the targetif it is "scrolling" thenput the scroll of the target into scrollLocationelseput "0" into scrollLocationend if--∆ Next, get the vertical location of the field and adjust--∆ for wideMargins (causes all lines to drop 4 pixels)put item 2 of rect of target into verticalLocationget wideMargins of the targetif it is true then add 4 to verticalLocation--∆ Compute the line numberget item 2 of the clickloc - verticalLocation + ScrollLocationput 1 + it div the textHeight of target into lineNumber--∆ Now, get the name of the hiliter buttonget the short name of the targetput it into FieldName--∆ Calculat